home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 092 - EBU.dsk / EXPERIMENTAL / DECIBY.bas < prev    next >
BASIC Source File  |  2019-02-17  |  971b  |  29 lines
  1. 0  REM                 Decimal To Binary  <CTRL-J>
  2. 10  TEXT : HOME : SPEED= 255: PRINT  CHR$(4);"PR#3": ONERR  GOTO 900
  3. 20  PRINT "Enter Decimal number you want me to convert to Binary, and Press Return Please.": PRINT : PRINT "Press Control-C to quit!": PRINT 
  4. 23  FOR J = 1 TO 40: PRINT "/\";: NEXT J
  5. 24  PRINT 
  6. 25  INPUT N$
  7. 27  IF  VAL(N$) <1  THEN 1000
  8. 30  LET N =  VAL(N$): IF N < > INT(N)  THEN 1000
  9. 33  PRINT 
  10. 35  PRINT N;" Base TEN = ";
  11. 40  FOR E = 40 TO 0  STEP  -1
  12. 50 I =  INT(N/2 ^E)
  13. 60  PRINT I;
  14. 70 R = N -I *2 ^E
  15. 75 N = R
  16. 80  NEXT E
  17. 85  PRINT " Base Two."
  18. 90  PRINT : PRINT : GOTO 20
  19. 900  REM   <CTRL-J>Error handling Subr.<CTRL-J>
  20. 905 P =  PEEK(222)
  21. 910  IF P < >255  THEN  CONT 
  22. 920  IF P = 255  THEN 930
  23. 925  PRINT "Error Code Number: "P: STOP 
  24. 930  PRINT  CHR$(4);"prefix/"
  25. 940  PRINT  CHR$(4);"-/ram/mc": NEW 
  26. 1000  REM <CTRL-J> Bad Data Subr.<CTRL-J>
  27. 1010  PRINT : PRINT "Please enter only Integers greater than one."
  28. 1020  PRINT : PRINT 
  29. 1030  GOTO 25